General Disclaimer 


One or more of the Following Statements may affect this Document 


• This document has been reproduced from the best copy furnished by the 
organizational source. It is being released in the interest of making available as 
much information as possible. 


• This document may contain data, which exceeds the sheet parameters. It was 
furnished in this condition by the organizational source and is the best copy 
available. 


• This document may contain tone-on-tone or color graphs, charts and/or pictures, 
which have been reproduced in black and white. 


• This document is paginated as submitted by the original source. 


• Portions of this document are not fully legible due to the historical nature of some 
of the material. However, it is the best reproduction available from the original 
submission. 


Produced by the NASA Center for Aerospace Information (CASI) 



X-613-70-87 




NASA TM X : (q$ S i/ 

A METHOD OF HANDLING 
MULTIPLE FILE TAPES 
WITH OS/360 


JACQUES RACQUET 


MARCH 1970 





GODDARD SPACE FLIGHT C 

GREENBELT, MARYLAND^ 


•PACES) 




(CODE) 


■NASA CM OR 


NUMBIMI 


■CATEGORY) 


X-613-70-87 


I 

A METHOD OF HANDLING MULTIPLE FILE TAPES WITH OS/360 


Jacques Pacquet* 
Laboratory for Optical Astronomy 


March 1970 


GODDARD SPACE FLIGHT CENTER 
Greenbelt, Maryland 




•Service d’Aeronomie, Centre National de la Recherche Scientifique, Fort deVerrieres (Seine et Oise)FRANCE 


“ £ct “«.^ ce 




ABSTRACT 

A set of general routines to handle tapes on computers using 
OS/360 is described. More specifically, a method to read a multi- 
reel multifile ’’data set" on unlabeled tape and to generate on un- 
labeled or labeled tapes one or more multi-reel multifile "data 
sets" is described using the queued sequential access method of the 
operating system. The software used consists of a set of assembly 
language routines, callable from FORTRAN IV. A discussion of 
their construction and their potential use is given. 
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A METHOD OF HANDLING MULTIPLE FILE TAPES WITH OS/360 


INTRODUCTION 

Before entering into the subject of these pages , we will explain the reasons 
which led to the writing of these routines . 

The problem posed was one of reduction of data from experiments flown a- 
board the OGO satellites . The information given by the experiment was tele- 
metered from the satellite to the ground station. After separation of the data on 
a computer, the experimenter receives his information on (decommutated) data 
tapes. These tapes are 7 track, odd parity, 556bpi density tapes generated on 
a Univac 1108 computer. As many as 1500 tapes, each with 10 or more files, 
could be received. 

For different reasons, not pertaining to this discussion, a phase of ’’re- 
duction" of the data is necessary. The reduction consists in reading these de- 
commutated data tapes (a multi-reel data set on multifile unlabeled tapes) and in 
writing out more meaningful data tapes . 

For an experiment, the output tapes are of two classes: One class will con- 
tain all the data consisting of measurements of the physical phenomena with the 
proper time and experiment status; the second class consists of housekeeping 
data (attitude error signals, inflight calibration data, etc.). To avoid breaking 
the structure of the input data set, (each file corresponds to data pertaining to 
the same pass, same edit tape, etc. ,) at this point of the reduction one input file 
of data will generate one output file for each class. So two multi-reel multifile 
data sets are to be generated. Due to the complexity and the many logical func- 
tions accomplished by the reduction program, it seemed easier to write it in 
FORTRAN IV language. 

These functions cannot be accomplished using FORTRAN IV alone. To 
FORTRAN the input looks like a specific number of data sets, for each of which 
a DD statement must be assigned. While for the input it may be possible to 
compute the number of files and punch accordingly the specified number of DD 
cards, it is generally impossible to compute the number of output files, as this 
is dependent on the data processed by the program. For example, an input file 
may only relate to a time when the experiment was off, therefore no output files 
will be generated. Not Imowing how to easily solve this problem in FORTRAN, 
it was decided to write appi '<priate routines in assembly language callable from 
FORTRAN. 
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Functions to be Accomplished 


To accomplish this goal, the software had to accomplish the following basic 
functions: 

1 . Read input and write output tapes (7 and 9 track) . 

2. Write output tapes with the proper format. 

3 . Read and write on the same tape unit (the INOUT option does not exist 
for QSAM). 

4. Dismount any volume during the run of the programs. 

5. Keep track of mounted volumes and of their position. 

6. Generate proper messages to operators for manual interventions. 

7. Position input tapes to selected file. 

8. Add data on the end of previously written tares. 

9. Allow initial input tapes to be dismounted and output tapes mounted on 
the same drives. 

10. Allow alternate use of two drives for input. 


OPERATING SYSTEM 360 FUNCTIONS 

Though it is not our purpose to give a course in how the OS/360 processes 
sequential data sets on tape using the Queued Sequential Access Method (QSAM), 
we will try to explain from the user's point of view the different phases of the 
processing. 

A. Definitions 


Data Set: 

For the problem previously defined, one might consider a data set to be 
one file on an input or output tape. 
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DCB: 


To process a data set, a block of information must be constructed called a 
Data Control Block using the macro instruction DCB. Using the parameters 
specified in the DCB macro instruction, the system constructs the Data Control 
Block. In this DCB you specify characteristics of your data jet and of its organ- 
ization, number of buffers used, etc. 

DD Statement: 

Besides the DCB, a DD statement must also be supplied which specifies, at 
execution time, information about the data set omitted in the DCB. In particular, 
you specify in this DD statement the characteristics of the I/O device. This DD 
statement is referred to by its DDNAME and is stored on a direct access device 
in a Job File Control Block (JFCB). 

UCB: 

With each I/O device is associated a block of information called the Unit 
Control Block. In this block is found, when the tape is on the drive and posi- 
tioned, its volume serial number (specified in the DD statement), and at what 
file it is positioned. 

B. Processing of the Data Set 


Open Phase: 

Before the processing starts, the system must send a mount message to the 
operator, position it, and construct the necessary block to communicate with the 
channel. All of these functions are accomplished by opening the data set, using 
the macro instruction OPEN. 


OPEN (DCB ADDRESS, [(options)] , ) 


Whenusingthis macro instruction, one specifies which data set is to be processed, 
and the kind of operations to be accomplished (input or output). Basically, there 
are three different steps accomplished by the system. 

1. Through the DCB address the system gets the data control block from 
which, through the DDNAME, it gets the DD Statement. (The DDNAME 
is a parameter of both the DCB and DD Statement.) Using the informa- 
tion from the DD Statement, it completes the Data Control Block. 
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2. Having obtained the volume serial number on which the data set resides 
from the DD Statement, the system searches the UCB's allocated to the 
data set to see if the volume is mounted. If not, and a mount message 
has not yet been issued, it will signify to the operator to mount the 
volume . 

3. Once the volume is mounted, it positions the tape by comparing the data 
set sequence number specified in the DD Statement and the one specified 
in the UCB. 

Processing Phase: 

Using the macro instructions GET and PUT, information is transmitted be- 
tween the I/O Buffers and work areas in memory: 


GET DCB address, [(area address) 

PUT DCB address, (area address) 

Under the QSAM, using this macro instruction, all the functions to read or to 
write information (construction of the channel program, transmission of infor- 
mation, errors recovery procedures, etc.), are accomplished by the system. 

Ending Phase: 

Once all the I/O operations have ended, the Data Control Block must be 
closed. During this phase the system will free the storage used by the blocks 
used at open tiir ■, empty the buffer, and inform the operator of the final dis- 
position of the volume on which the data set resides. For this the CLOSE macro 
instruction is used. 


CLOSE (DCB address, [(options)] . . .) 


C. Restrictions 


Basically, one might separate the processing of a data set into three 
logical steps - the opening phase, the processing phase and the closing phase. 
Besides this, there are two important restrictions of the OS/360 concerning the 
processing of data sets on unlabeled tapes: 


1. For each data set a DD Statement must be supplied. (This means a DD 
Statement for each physical file on the input tapes.) 

2. When an end of file is reached on an input tape, the Data Control Block 
for the specific data set must be closed. 
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CONSTRUCTION OF THE SOFTWARE 


A. Choice of the Routines 

We had in mind to use the capabilities of the operating system as much as 
possible. This led to the choice of processing the data sets under the Queued 
Sequential Access Method (QSAM) . Besides the automatic handling of buffers by 
the system, an access method relieves the programmer of remembering the 
position of the tape, constructing the channel program, etc. 

In order to handle many data sets, the routines had to be general. In con- 
sideration of the functions needed to process a data set, reviewed in the previous 
section, the following routines, callable from FORTRAN, were constructed* 

OPEN 
CLOSE 
FREAD 
F WRITE 
UTILITY 

All of these routines are the QSAM macro instructions. Specifically, the OPEN 
and CLOSE routines use the macro of the same name. Their purpose is to 
communicate from FORTRAN IV to the operating system through assembler 
language written code. Using this routine, one is able to read or write any tape 
selected, provided he has described the physical configuration of his program in 
the UTILITY routine. 

B. Functions of the Routines 


OPEN Routine : 

Open the necessary DCB's to process the data sets— one DCB is opened at 
each call. Allow the program to supply only one DD Statement for each multiple 
data set. Force the system to issue a mount message when necessary. 

Make possible reading and writing on the same tape drive (under QSAM) 
using either locate mode or move mode. 

Make the system position tapes to the proper files; in particular allow file 
(n-1) to be read after file (n). 


5 


Give the capability of alternating between two tape drives when reading 
tapes. 

Return a code specifying if tne opening of the DCB was successful or not. 

CLOSE Routine : 

Close the necessary DCB's opened to process the data sets. One DCB is 
closed at each call. 

Force the system to issue messages to the operator for the final disposition 
of the volumes. 

Dismount any volumes specified if necessary. The option of leaving the 
volume can also be specified. 

Return a code specifying if the closing of the DCB was successful or not. 

FREAD Routin e: 

Transmit information from the I/O buffer to work area in core. The data 
set must have been opened. 

Use either locate or move mode as specified at opening time. 

Return a code syfM ifying whether a successful read occurred, a tape mark 
was read, or a read error occurred. 

FWRITE Routine : 

Transmit information to the I/O buffer from the work area in core. The 
data set must have been opened. 

Use either locate mode or move mode as specified at opening time. 

Return a code if the writing was successful. 

UTILITY Routine : 

Provide the linkage with the FORTRAN Program. 

Set up the save areas each time one of the preceding routines is called. 

Make sure the data set referred to exists. 
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Contain the DCB of the data sets associated with the program. 

Contain the job file control blocks for the DD Statements associated with the 
data sets . 

Basically, this software accomplished the functions required. Now the use 
of the operating system to accomplish these functions will be described. 

C. Description of the Software 

OPEN Routine : 

a. FORTRAN calling sequence: 

CALL OPEN (DD ADDRESS, VOLUME SER, FILE, MODE, RETURN CODE) 


Where: 

D D ADDRESS is an array of 8 bytes containing the EBCDIC name of the DD 
Statement allocating the drive on which the volume containing the data set is or 
will be mounted . 

VOLUME SER is an array of 8 bytes containing the EBCDIC volume serial 
number of the volume on which resides the data sets- If zero is specified, the 
volume serial used in the DD Statement will be used. 

FILE is the file to which the volume must be positioned so the data set can 
be processed. If zero is specified, the file sequence number specified in the 
job file control block will be used. 

MODE is a parameter which can take these values (0, 1, 2, 3,). 

0 means open for input, locate mode in use 

1 means open for input, move mode in use 

2 means open for output, locate mode in use 

3 means open for output, move mode in use 

RETURN CODE is a parameter which can take the values (0, 1) 

0 means the data set exists and its DCB has been opened 

1 means the data set does not exist and nothing has been done 
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b. Functions of the parameters: 

DP ADDRESS 

To process a data set, a DD Statement must be supplied. This DD Statement 
identifies the volume on which the data set resides and the tape unit on which the 
volume is mounted. (More than one volume and more than one tape drive might 
be allocated.) This DD Statement has a DDNAME. Each time reference is made 
to this DDNAME, one is, in fact, referring to the volume mounted on the I/O de- 
vice allocated by the DD Statement. This is why this DDNAME is used as a means 
of communication between the FORTRAN program and the assembly language rou- 
tines, for one cannot access directly the DCB to be opened. 

For each data set processed by this software, one must supply, to each of 
the routines, the names of the DD Statement allocating the I/O device so the 
UTILITY routine can identify the data set to which this call is applied. This name 
(DDNAME) must already exist in the UTILITY routine. In general, each DDNAME 
points to a DCB. Once the DCB ADDRESS is found, the software can open the 
DCB. 

In the case of a data set residing on two tape drives, one being active at a 
time, two DDNAMES (of the two DD Statements allocating the tape drives), point 
to the same DCB. 

VOLUME SER AND FILE 

One of the restrictions of the O/S is that one has to supply a DD Statement 
for each data set (file) . As the number of output files is assigned dynamically 
during the run of the program and unknown at the beginning of the run, one has 
either to generate dynamically the necessary DD Statements or modify a single 
one. For obvious reasons, the second solution was adopted. It has been seen 
that the merging of the DD Statement and the DCB happens at open time. Each 
time a tape mark is read, the DCB has to be closed. To process the next file, 
it has to be reopened. Suppose we could "update" the DD Statement - the prob- 
lem would then be solved because the merging would occur with a new DD 
Statement. 

There is a special type of OPEN macro instruction to open the DCB called 
the type J OPEN macro instruction. By using this type of OPEN, you specify 
to the OS/360 that you will supply the Job File Control Block which includes the 
DD Statement. 

Thus, when the Data Control Block is closed, the JFCB can be modified (in 
other words, the DD Statement). 
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Two particular fields in the JFCB of interest for our purpose are: 


name 

length 

location 

JFCBFLSQ 

2 bytes 

Byte 68 

JFCBVOLS 

30 bytes 

Byte 122 


The JFCBFLSQ identifies the data set sequence number of the volume (the file on 
our tape), and the JFCBVOLS the serial number of the volume on which the data 
set resides. So, every time one wants to process another file on a tape, one 
modifies the file parameter and the system will position the tape as before. This 
allows processing the files on the tapes in the order desired. When one wishes 
to change volumes, he provides another volume serial number as the volume 
serial parameter. Provided the tape is unloaded , the system will send a mess- 
age to the operator to mount the next volume and update the necessary blocks to 
keep track of this new volume. 

Only one volume serial number must be specified in the DD Statement be- 
cause if a tape mark is hit while reading the tape, the system would not give back 
control to the problem program, but rather try to process the next volume. This 
is why just one volume serial number should be specified in the job file control 
block. To switch tapes, one must be careful with the bypass label processing 
operation (BLP). The tape must first be unloaded, otherwise, the system will use 
the tape already on the drive. It will, however, issue the mount message for 
the right volume. 

As long as tapes are processed on the same drive, the JFCB need only to be 
read once. However, in the case of alternation between two allocated drives, 
the program will read the JFCB every time a switch of drive occurs. This is 
because one JFCB area and one DCB is used for the two drives. 

MODE 

One last function to accomplish is to read or write on the same drive. Under 
QSAM there is no INOUT option as provided by the Basic Sequential Access 
Method (BSAM). However, there is a parameter of the DCB called the MACRF 
parameter which specifies the macro instruction and the facilities to be used to 
process the data set. Of all the options available only the following were kept: 


GL means GET 

LOCATE 

MODE 

GM means GET 

MOVE 

MODE 

PL means PUT 

LOCATE 

MODE 

PM means PUT 

MOVE 

MODE 
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The locate mode allows one to process within the buffer of the machine. The 
move mode allows one, in writing, to transfer a FORTRAN built buffer to the 
I/O buffer of the computer, or to transfer information in a FORTRAN acces- 
sible buffer. The system knows what is used by the bit setting on the foundation 
of the data control block. These bits are set by the MACRF parameter in the 
DCB. Therefore, by just specifying at the opening time which macro type to 
use, one can read or write using locate or move mode on any tape drive. 

RETURN CODE 

This return code merely states whether the proper DDNAME exists in the 
control program. 

CLOSE Routine : 

a. FORTRAN Calling sequence: 


CALL CLOSE (DD ADDRESS, OPTION, RETURN CODE) 


Where: 

DD ADDRESS 
Same as for OPEN 
OPTION 

Is a parameter which can take two values (0, 1) 

0 means close with leave option specified 

1 means close without option specified 

RETURN CODE 

Same as for OPEN 

b. Functions of the Parameters: 

DD ADDRESS and RETURN CODE 
Same as for OPEN 
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OPTION 


Every time a tape mark is read or written, the Data Control Block associ- 
ated with the data set must be closed. Two options are available. Should the 
next file have to be processed, the volume must remain mounted and positioned. 
The macro instruction CLOSE has the capability of specifying options. 

The leave option positions the current volume to the logical end of the data 
set. In other words, the tape remains positioned, and to process the following 
file one need only to open the DCB using the OPEN routine, with the same volume 
serial number and the file number incremented by one. 

In case the processing for that volume has ended, and the drive needs to be 
freed to process the next volume, the tape needs to be unloaded . To accomplish 
this, it is not necessary to specify any options in the CLOSE macro instruction 
(you may, however, specify the option DISP), and specify in the disposition 
parameter in the DD Statement, the KEEP option, e.g. , DISP = (OLD, KEEP). 

In this case, not only does the system unload the tape, but also it informs the 
operator of the action to be taken concerning the volume . 

FREAD Routine : 

a. FORTRAN Calling Sequence: 


CALL FREAD (DD ADDRESS, BUF ADDRESS, NUMBER, RETURN CODE) 
Where: 

DD ADDRESS 
Same as above 

BUF ADDRESS is either a word or an array. It will contain the address of 
the I/O buffer containing the next record read in the case of locate mode. In 
move mode, it will contain the record just read, including the control word in 
case of a variable record (RECFM = V). 

NUMBER 


A half-word containing the number of full words just read. 
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RETURN CODE is a parameter which can take the values 0, 1, 2, 3. 


0 means normal return, a record has been read. 

1 means an end of file has been read while trying to 
read the record. The DCB must be closed by the user. 

2 means an error occurred while reading. 

3 the data set does not exist and nothing has been done. 

b. Functions of the Parameters: 

DD ADDRESS 


Same as for OPEN. 
BUF ADDRESS 


In the case of locate mode, BUF address contains the address of the record 
just accessed by the GET macro instruction. This buffer cannot be directly ac- 
cessed by a FORTRAN program and must be processed through an assembly 
language program. 

The move mode is best used when the data are already unpacked and can be 
used by FORTRAN. In this case, BUF ADDRESS will be the name of an array 
in the FORTRAN calling program, large enough to accommodate the entire 
record. 

If the record format specified for the data set is undefined or fixed, 
the buffer contains only the data. In the case of variable (blocked or unblocked) 
record format, the first word will contain the number of bytes contained in the 
logical record just accessed. This is a control word generated at the time the 
record was written on the volume. 

N UMBER 

This parameter will contain the number of full words just read . This param- 
• er is taken from the DCB record length parameter. In case of fixed or unde- 
' .ed record formats , it will be the exact length of the record . In case of vari- 
. -le records, it will be the length of the record, including the control word at 
the beginning. 
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F WRITE Routine: 


a. FORTRAN calling sequence: 


CALL F WRITE (DD ADDRESS, BUF ADDRESS, NUMBER, RETURN CODE) 
Where: 

DD ADDRESS 
Same as OPEN. 

BUF ADDRESS 

Will contain the address of the I/O Buffer where the record to be written can 
be packed for locate mode. In the move mode it will contain the record to write, 
including the control word for variable record format. 

NUMBER 


A half word containing the number of words to be written. 
RETURN CODE 


0 - normal return. The record has been moved to the I/O Buffer. 

2 - error while writing (not used because the system will ABEND the task). 

3 - the data set does not exist and nothing has been done . 

b. Function of the Parameters: 

DD ADDRESS 

Same as for OPEN. 

BUF ADDRESS 

Same as for FREAD routine. It should be pointed out here that for the lo- 
cate mode the first call to the routine provides the address of the buffer where 
the record can be constructed. The last record is written when the DCB is 
closed. 
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Undefined, fixed or variable record formats can be written as specified in 
the DD Statement for the Data set. In the case of variable record, the first word 
of the logical record to be written must not be used. The routine uses it to gen- 
erate the control word. 

NUMBER 


This parameter contains the number of words to be written. In the case of 
variable records, the control word must be included in the count. 

RETURN CODE 

Only the normal return and the not found data set return can be used. In 
the case of a write error, the system ABENDS the job. In the case of an end of 
volume, the system will automatically ask for the next volume to be mounted. 

UTILITY Routine ; 

This routine is a control section which is used by the preceding subroutines. 
It cannot be accessed by FORTRAN directly. Its main use, besides setting of 
save areas and restoring registers, consists of the linkage with the FORTRAN 
program and the setting of the Return Codes. 

Basically, its contents can be described simply as: 

a. One Table of DDNAME(S) — This table of double words (one for each DD 
NAME) must contain all the DD names and the DD Statements allocating the I/O 
devices for the data sets to be processed by this software. 

Example: 

Suppose a program to read one input tape and write out two output tapes 
using this software: 

Input Name of DD Statement DTPIN (//GO- DTP IN DD) 

Output Name of DD Statement DTPOUT1 (//GO-DTPOUT1) 

DTPOUT2 (//GO- DT POUT 2) 

The UTILITY routine must contain the following table: 


DDNMTBLE 

DS 

OCL 



DC 

CL8’ 

DTPIN* 



CL8' 

DTPOUT1* 



CL8' 

DTPOUT2’ 
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b. One Table of DCB Address — The DD Name table is just a means to com- 
municate with the assembly package. The purpose is to reach the Data Control 
Block Address. Therefore, a table of DCB address corresponding to each data 
set must be created. 


Preceding example: 

Input Names of DCF TPIN 

Output Names of DCB TPOUT1 

TPOUT2 


The UTILITY routine must contain the following table: 


DCBTABLE 


DS OF 
DC A (TPIN) 

DC A(TPOUTl) 
DC A(TPOUT2) 


The order must be the same as the one in the DD Name table. 


c. One Table of EXIT LIST Address — These EXIT LIST addresses are the 
ones specified in the EXIT LIST for each DCB so the job file control block can 
be read in using the RDJFCB macro instruction. 

Preceding example: 

Suppose the EXLST parameter specifies 

For the DCB TPIN EXLST = LIST1 

For the DCB TPOUT1 EXLST = LIST2 

For the DCB TPOUT3 EXLST = LIST 3 

The UTILITY routine must contain the following table: 


ADDLIST 

DS 

OF 

LIST1 

DC 

X'87',AL3(JFIN) 

LIST2 

DC 

X'87\AL3(JFOUTl) 

LIST 3 

DC 

X'87 , ,AL3(JFOUT2) 


Where JFIN, JFOUT1 and JFOUT2 are areas of 176 characters lcig aligned 
on a double word boundary . 
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d. The DATA CONTROL BLOCK — For each data set active at one time, a 
DCB must be supplied, '"ne parameter specified for this DCB depends on the 
programmer. However the EXIT LIST address must be specified and match 
the one specified in the EXIT LIST table. The EODAD parameter must specify 
EODAD = EOF and the SYNAD parameter SYNAD = ERR if they are to be used. 

EOF and ERR are addresses in the UTILITY routines where the Control 
program branches after gaining control from the system in case of an error or 
a tape mark encountered while reading. 

Preceding example: 

Here is an example of a DCB macro instruction: 

TPIN DCB DSORG=PS, MACRF=(GL), 

DDNAME=DTPIN , DEVD=TA , 

BUFNO=2 , BFALN=D , EROPT=ACC , 

EODAD=EOF , SYNAD=ERR , 

EXLST=LIST1, BFTEK=S. 

The MACRF parameter and the DD Name parameter are set up by the OPEN 
ROUTINE. 

e. The JFCB AREAS — For each data set, an area of 176 characters long 
must be supplied. The RDJFCB macro instruction will read the job file control 
block lor the data set whose DCB is specified as the parameter of the RDJFCB 
macro instruction. It will read in core in the area specified by the EXIT LIST 
of the DCB. 

Preceding example: 

The JFCB DTPIN will be read in JFIN 

DTPOUT1 will be read in JFOUT1 
DTPOUT2 will be read in JFOUT2 

The UTILITY must contain: 



DS 

OD 

JFIN 

DS 

176C 

JFOUT1 

DS 

176C 

JFOUT2 

DS 

176C 
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f. The EXIT LIST— Two EXIT LISTs addresses are specified. 


EOF when a tape mark is read on a tape . 

ERR when an error occurs while reading the tape. 

If the user wants to use the return code specified in the FREAD routine, in 
case of a tape mark or an error while reading he must first specify in the DCB 
for the concerned data set 


EROPT = ACC 
EODAP = EOF 
SYNAD = ERR 

in this case the RETURN CODE will be properly set up and the problem program 
will regain control . 

This parameter, though specified in the DCB, will not be used if an end of 
volume is encountered while writing a tape or an error occurs. If an error 
occurs, the system will abend the task. If an end of volume occurs, the system 
will request mounting of the next volume automatically, the FWRITE routine will 
regain control when the Buffer is to be written out on the new volume. A normal 
return will be specified in this case. 


POTENTIAL USE 

Let us recall that this software has been written for the purpose of handling 
multifile multi-reel data sets . It might not be suitable to use it for other appli- 
cations, To be able to use this software, one must first set up the UTILITY 
program . It would be wasteful in time if that part of the software had to be re- 
programmed for each program. Though a little wasteful in core, it is better to 
set it up such that it will suit every requirement. For this one needs to know 
the maximum number of data sets to be handled using these routines - once de- 
cided, the following actions will have to be accomplished: 

1. Set the parameter of the loop for the DDNAME checks. If it is the num- 
ber of tape units you want to handle (it might be greater than the number 
of data sets), this parameter is equal to (n-1) x 8. 

2. Set the table of DDNAMEs, each eight characters long (may be padded by 
blanks). 
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3. Set up the Data Control Blocks. The amount of information specified 
there depends on the programmer. However, let us recall that only the 
PUT and GET macro instructions are supported for both Locate and 
Move mode. Also, if the Return Code of the FREAD routine is to be 
used, EROPT=ACC, £ODAD=EOF and SYNAD=ERR must be specified. 

At least one DCB must be supplied per data set. 

4. Set the table of DCB address. This table must have n entries, some 
entries may point to the same DCB. 

5. Set the table of EXIT LIST entries, some pointing to the same job file 
control area. Each EXIT LIST must have its name specified in the Data 
Control Block using this EXLST parameter. 

6. Set the job file control block areas. These areas must be of 176 charac- 
ters long, aligned on a double word boundary. 

Once all the information is specified in the UTILITY routine, the software 
is ready to be used. 

An example will now be given to show the possibilities and the use of the 
software. 


EXAMPLE 

suppose one has a data reduction task which must handle many tapes in 
various programs . We will assume that the maximum number of data sets to be 
handled within a job is four , for the main data reduction programs . This pro- 
gram consists in reading a batch of tapes and writing out information on three 
different output data tapes. Two drives are to be assigned for the input to be 
able to alternate between the two . 

Here one has four data sets: one input, three output datasets and five drives 
two for input, three for output. 

All the remaining program will fit within this configuration, so one is now 
ready to set the UTILITY routine. 

A. Setting of the UTILITY Routine 


1. Parameter of the address loop n = 32 

2. DDNAME table. 
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For example, we will assume the following DDNAMEs: 

DDNTBLE DS OCL8 

DC CL8'DDECOMl» 

C L8 'DDECOM2 1 

CLS'DTPOUT 1 

CLS’DORBrr' 

CL8 , DDIRECT , 

For each of these DDNAMEs corresponds a DD Statement. 

INPUT TAPES : 

//GO-DDECOM1 DD . . . . 

//GO-DDECOM2 DD . . . . 

OUTPUT TAPES : 

//GO-DTPOUT DD . . . . 

//GO-DORBIT DD . . . . 

//GO- DDIRECT DD . . . . 

REMARKS : 

Assigning certain drives for input or output is made at opening time. You 
could, for example, assign DTPOUT for input and alternate between two out- 
put tapes DDECOM1 and DDECOM2. 

3. DATA CONTROL BLOCKs: 

One detailed example of a typical DCB will be given and only a 
skeleton (with the most necessary information) will be given for the 
others . 

ORBIT DCB DSORG=PS, MACRF=(PM) ,DDNAME=DORBIT , 

DEVD=TA , BUFNO=2 , BFALN=D , EROPT=ACC , 
EODAD=EOF , SYNAD=ERR , EXLST=LIST3 , 

BFTEK=S. 

TPOUT DCB , DDNAME=DTPOUT. . . EXLST=LIST2, 

EROPT=ACC , EODAD=EOF , SYNAD=ERR 
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DIRECT DCB DDNAME=DDIRECT . . . EXLST=LIST4, 

EROPT=ACC , EODAD=EOF , SYNAD=ERR 

DECOM DCB , DDNAME=DDECOMl. . . EXLST-LIST1, 

EROPT=ACC , EODAD=EOF , SYNAD=ERR 


REMARK: 


In fact, the DDNAME parameter and the MACRF parameter are set at open- 
ing time. 

4. DATA CONTROL BLOCK address table: 


DCBTABLE 


DS 

OF 

DC 

A(DECOM) 

DC 

A(DECOM) 

DC 

A(TPOUT) 

DC 

A(ORBIT) 

DC 

A(DIRECT) 


One sees that the first two entries point to the same DCB, two tape drives 
being assigned at one data set. 

5. EXIT LISTS table: 


ADD LIST 

DS 

OF 

LIST1 

DC 

X’87 ’ , AL3(JFDECOM) 


DC 

X’87’,AL3(JFDECOM) 

LIST2 

DC 

X’87 ’ , AL3(JETPOUT) 

LIST 3 

DC 

X’87’, AL3(JFORBIT) 

LIST 4 

DC 

X’87 ’ , AL3(JFDIRECT) 


6. JOB FILE CONTROL BLOCK area: 



DS 

OD 

JFDECOM 

DS 

CL176 

JETPOUT 

DS 

CL176 

JFORBIT 

DS 

CL176 

JFDIRECT 

DS 

CL176 


With this information specified in the UTILITY routine, the software is now 
ready to be used . 
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B. Application 


1. Definition: 

We will take, as example, the main data reduction job. The input 
tapes will be processed using the locate mode and the output tapes 
using the move mode. We will assume the following routines writ- 
ten: SUBROUTINE UNPAK (ADD, L, OUT, N) , whose function is 
to unpack the data in the buffer of length L and address specified in 
the ADD parameter and return unpacked data in the array OUT of 
length N. SUBROUTINES BUF1, BUF2, BUF3, (OUT, N, BUF, 
M.) 


Function: 

^o generate output Buffers respectively for output tapes 1, 2 and 3. 
Information from the last call to the UNPAK routine is packed in an 
array called BUF of length M. 

2. FORTRAN Program: 

INTEGER*2 NOB, M 

DIMENSION DDEOM(4), DTPOUT(2), DORBIT(2), DIRECT(2), 

lOUT(lOOO), BUF(IOOO), NFILE(20), OLSER(2), 

20UT 1(2), OUT2(2), OUT3(2) 

DATA DDECOM/’DDECOMl DDECOM2V',DTPOUT/ , DTPOUT , /, 
lDDORBIT/’DORBIT »/, DIRECT/ , DDIRECT , / 


C 

C IND IS THE POINTER USED FOR ALTERNATING BETWEEN 
C TAPE DRIVES. 

C 


IND = 3 
K = 0 


READ VOLJME-SER OF OUTPUT TAPES. 


READ (5,2) OUT1, OUT2, OUT3 


21 


ooo ooo ooo ooo ooo 


C 

C READ VOL-SER OF INPUT TAPES, NUMBER OF FILES 
C AND LIST 
C NUMBERS 

26 READ (5,1, END = 100) OLSER, N, (NFILE(J), J=l, N) 
IF (IND.EQ.3) GO TO 10 
GO TO 11 

10 IND = 1 

11 CONTINUE 


LOOP TO PROCESS N FILES ON 1 TAPE 


DO 12 J = 1, N 


OPEN INPUT TAPE FOR LOCATE MODE 


CALL OPEN (DDECOM(IND) , OLSER, N FILE(J), O, NC) 


OPEN OUTPUT TAPE 1 FOR MOVE MODE 


CALL OPEN (DTPOUT, OUT1, (K+J),3,NC) 


OPEN OUTPUT TAPE 2 FOR MOVE MODE 


CALL OPEN (DIRECT, OUT2,(K+J),3,NC) 


OPEN OUTPUT TAPE 3 


CALL OPEN (DORBIT, OUT3, (K+J),3,NC) 


22 


ooo ooo ooo ooo ooo ooo 


READ INPUT TAPE 


23 CALL FRE AD(DDECOM(IND) , ADD1 , NOB, NC ) 
GO TO (21,22) NC 


UNPACK DATA 


CALL UNPACK(ADD1, NOB, OUT, NUMB) 


PREPARE BUFFER FOR OUTPUT TAPE 1. 


CALL BUFl(OUT , NUMB , BUF , M) 


WRITE RECORD ON OUTPUT TAPES 


CALL F WRITE (DT POUT, BUF, M,NC) 
CALL BUF2 (OUT, NUMB, BUF, M) 
CALL FWRITE (DIRECT, BUF, M,NC) 
CALL BUF3(OUT, NUMB, BUF, M) 
CALL FWRITE (D ORBIT, BUF, M,NC) 
GO TO 23 


A READ ERROR - SKIP THE RECORD 


22 WRITE (6,3) (list) 
GO TO 23 


END OF ON INPUT TAPE 


21 IF(J.EQ.N) 
GO TO 24 


23 



c 

C IF N FILES HAVE NOT BEEN READ-CLOSE AND LEAVE 
C 

CALL CLOSE (DDECOM(IND),0,NC) 

C 

C LAST FILE DONE-CLOSE AND KEEP 
C 

24 CALL CLOSE (DDECOM (IND),1,NC) 

C 

C CLOSE OUTPUT DCB's(LEAVE) 

C 

25 CALL CLOSE (DTPOUT, 0,NC) 

CALL CLOSE (DIRECT, 0,NC) 

CALL CLOSE (DORBIT,0,NC) 

12 CONTINUE 

C 

C UPDATE PARAMETERS POINTING TO OUTPUT FILES 
C 

K = K+N 
GO TO 26 


1 FORMAT (2A4, 13,2012) 

2 FORMAT (6A4) 

3 FORMAT (USERS CHOICE) 

100 .. . 

RETURN 

END 


CONCLUSION 

This method of handling tapes has been proven successful for two experi- 
ments flown aboard OGO IV and OGO V. It completely frees the programmer 
of the burden of writing an assembly language program, which speeds up his 
work. It is hoped that this work can be as helpful for others as it has been for 
us. 
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APPENDIX I 
SOURCE CODE LISTING 


A-l 



// EXEC FORTRAN 
//SOURCE. SYSIN UO * 

01 MENS I ON NUF(200) *ttUF(200) ,NN(2> 

DATA NN/'OORBIT*/ 

INTEGER * 2 NOB 
INTEGER * 2 NUB 
00 A J*l*100 
A NUF(J)*J 

NUB* 100 

CALL OPENiNN, 0,1,3, NCI 
CALL FWR ITE I NN *NUF *NUB,NC I 
CALL FWRITE(NN,NUF,NUB,NC> 

CALL CLOSE ( NN » 0 ,NC ) 

CALL OPENINN, 0, 1, 1, NCI 
DO 3 K* 1 ♦ 2 

CALL FREADI NN»B'JF»NOB»NC ) 

HR ITE ( 6 1 1 ) NOB,(BUF( I),I-I,NOBI 
3 CONTINUE 

L FORMAT I IAt ( • *,10Z8> ) 

STOP 

cND 

/* 

// EXEC ASSEMBLR t PARM* ' LOAD t DECK 1 
//SOURCE. SYSPUNCH DO DSNAME* CDECK, SYSOUT*B 
//SOURCE. SYSIN DO * 

MAST TITLE 'MASTER CONTROL PROGRAM FOR "OPEP SYSTEM" J.PACQUET* 
OPEN START 0 

TITLE 'CONTROL PROGRAM ENTRY NAME - "OPFN" • 

ENTRY DIRECT 
ENTRY UTI 
ENTRY UT2 
ENTRY DECOM 
ENTRY T POUT 
ENTRY ORBIT 
ENTRY CLOSE 
ENTRY FHRITE 
ENTRY FREAO 

* * * OPEN ROUTINE * * 

* 

• FORTRAN CALL* CALL OPEN ( ADDRDDNAME t VOLSER I AL t F I LSEOt CODE t RC ) 

* 

* WHERE* PARM I IS THE LOCATION OF THE D D N A M E . 

* * 2 IS THE LOCATION OF THE SERIAL NUMBERS. 

* * 3 IS THE LOCATION OF THE FILE SEO NUMBER. 

* * <» IS TYPE OF OPEN ( 0*GL * 1 “GM*2*PL 1 3*PM) 

* * 5 IS THE LOCATION FOR THE RETURN CODE. 

* 

* RETURNS ARE AS FOLLOWS* RC - 0« NORMAL RETURN 

* * - It ODNAME NOT RECOGNIZABLE 


A-2 



SPACE 2 
MASTRPGM 


ST01 

SPACE 1 
FOUND 


LOOP7 

SAUT 


DONE 


ZEROl 

ZER02 


SAVE 

1 1A, 12 ) » * * 

0 P 

E N ENTRY 

BAL« 

11*0 



USING 

•til 



USING 

UTILlTYtlO 



L 

10 1 DAT ABAS 1 



ST 

ItSAVl 



BAL 

1 tSAVTRACE 



BAL 

1A»0DNMCHCK 

GET 

OCB OFFSET IN GPR-A 

B 

• ♦A( IS I 

R15 

■ RC 

B 

FOUND 



LA 

15,1(0) 

DDNAME NOT RECOGNIZABLE 

ST 

lSt RETURNCD 



B 

RETURN1 



LA 

2 1 DCBT ABLE ( A ) 


DCB ADDRESS POINTER 

CLI 

0 ( 2 ) , X • 00 • 


IS DO IN JFCB AREA 

BNE 

OONE 


YES 

SR 

5,5 



LA 

6, A 



LA 

7,8 



LA 

8, DCBT ABLE ( A I 



LA 

2 , DCBT ABLE ( 5 ) 



CLC 

1(3,21,1(8) 


IS IT GOOO JFCB AREA 

BNE 

SAUT 


NO 

MV I 

0(2) ,X'00* 


DEACTIVATE OLD JFCB 

BXLE 

5 ,6, LOOP 7 



LA 

2 » DCBT ABLE ( A ) 



MV I 

0 ( 2 ) ♦ X • 0 1 1 


ACTIVATE NEM JFCB AREA 

L 

2 tDCBT ABLE ( A ) 



L 

1 , SAV 1 


PICK UP ADDRESS OF DDNAME 

L 

3,0(1) 



MVC 

A0( 8,2 ) ,0( J f 


HOOVE DDNAME 

RDJFCB (12)1 



L 

5 , ADOL 1ST (A ) 


PICK UP ADDRESS OF JFCB AREA 

L 

2 , DCBT ABLE (A) 



L 

ItSAVl 



L 

3, A( 1 ) 



SR 

6,6 



A 

6,0(3) 



BZ 

ZEROl 



MVC 

118(6, 5), 0(3) 


MOVE SERIAL • 

L 

3,8(1 ) 



SR 

6,6 



A 

6,0(3) 



BZ 

ZER02 



MVC 

68(2,6), 2(31 


MOVE FILE SEQUENCE • 

L 

3,12(1) 



L 

3,0(3) 



S 

3, *F ' 2 • 



BM 

INPUT 



N 1 

50(2), X'Ol* 



N I 

51(2), X'Gl* 



LTR 

3,3 




A-3 


BZ OUTLOC OPEN FOR OUTPUT LOC MODE 

01 51 ( 2 ) * X ' 50 ' 

B OUTPUT 

OUTLOC 01 51 ( 2 ) * X • 48 • 

OUTPUT OPEN ( (21*1 OUT PUT ) ) * TYPE* J 
B R6TURN1 

INPUT N1 5 1 ( 2 ) t X 1 0 1 1 

N I 50 ( 2 ) * X ' 01 ' 

A 3 * *F • 2 ' 

BZ INLOC 

01 50 ( 2 ) *X ' 50 1 

B TOOPEN 

INLOC 01 50( 2 ) *X *48 ' 

TOOPEN OPEN I ( 2 1 • ( INPUT H * TYPE* J 
RETURN1 L ItSAVl 

L 3*16(1) 

HVC 0(4*3 )*RETURNCO STORE RETURN COOE 
8 RETURN 

0ATABAS1 DC A(UTILITY) AUURESS OF GENERAL RUUTINES C DATA 

TITLE ‘CONTROL PROGRAM ENTRY NAME - “CLOSE'* • 

* * * CLOSE ROUTINE * * 

* FORTRAN CALL# CALL CLOSE ( ADDROONAME ,T YPE *RC ) 

* WHERE* PARM 1 IS THE LOCATION OF THE 0 D N A M E . 

* - 2 IS TYPE OF CL0SE(0«LEAVE,1*KEEP ) 

* * 3 IS THE LOCATION FOR THE RETURN COOE. 

* RETURNS ARE AS FOLLOWS# RC * 0* NORMAL RETURN 

* * * 1* DDNAME NOT RECOGNIZABLE 


SPACE 2 

USING **11 

CLOSE SAVE (14*12),** 

LR 11,15 

L 10 *DAT ABAS2 

ST 1 « SA VI 

BAL 1 , S A V T RACE 

BAL 14, DONMCHCK 

8 ** 4 ( 15 ) 

B IHADFILE NORMAL RETURN 

LA 15,1 DDNAME NUT RECOGNIZABLE 

STOR ST 15,RETUANCD 

B RETURN2 

SPACE 1 

IHADFILE L 2 »DCBT ABLE ( 4 ) PICK ADDRESS OF DCB 

L 6 , SAV l 

L 6,4(6) 

L 6*0(6) 

LTR 6,6 

BZ LEAVE 

CLOSE ((2)) UNLOAD TAPE 


A -4 



B RETURN? 

LEAVE CLOSE (<2)*LEAVE> LEAVE AND NOT UNLOAD TAPE 

RETURN2 L ItSAVl 

L 1*8(1) 

MVC 0( A* 1 I * RETURNCO STORE RETURN COOE 
B RETURN 

DATABAS2 OC A ( UT I L 1 T Y ) 

TITLE 'WRITE ROUTINE* 

• FORTRAN CALLf CALL FWR I TE ( AODRODNAME , BUF , NCOUNT ,RC > 

• WHERE* PARM 1 IS THE LOCATION OF THE 0 0 N A M E . 

• • 2 IS THE ARRAY OF DATA TO WRITE. FOR PM 

• • 2 CONTAIN ADORES OF NXT BUFFER FOR PL 

• ■ 3 IS THE NUMBER OF WORDS IN THE ARRAY. PM 

• NCCUNT HALF WORD 

• RETURNS ARE AS FOLLOWS# <C • 0* NORMAL RETURN 

• ■ « 2 ERROR RETURN 

• - - 3* DDNAME NOT RECOGNIZABLE 


SPACE 2 

USING **11 

FWRITE SAVE <14«12>*.* 

LR 11*13 

L 10 « DAT ABAS3 

ST 1 * SAV 1 

BAL 1 * SAVT RACE 

BAL 14*DDNMCHCK 

B *♦4(15) 

B IHAVF1LE NORMAL RETURN 

LA 15*3 

ST 1 5 t RE TURNCO 

B RETURN3 

SPACE 1 

IHAVFILE L 1 * DCBT ABLE ( 4 ) LOAO AOO OF DCB 

LR 5*1 

L 2 * SAV 1 

L 2*4(2) 

LR 0*2 LOAD ADD OF BUFFER 

L 2 *SAV 1 

L 2*8(2) 

LH 2*0(2) 

SLA 2*2 

SR 3*3 

1C 3*36(1) 

SRA 3*6 

S 3*«F' 1 * 

BZ VFMAT 

S 3**F ' 1 ' 

BZ TOPUT 


UFMAT STH 2*82(1) MOVE NUMBER OF BYTES 
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B 

TOPUT 

VFMAT 

LR 

3,0 


STH 

2,0(3) 

TOPUT 

PUT 

< 1 > , ( 0 ) 


SR 

4,4 


IC 

4,43(5) 


N 

4,»F* 16' 


BNZ 

APRES 


L 

2 , SAV 1 


L 

2,4(2) 


ST 

1,0(2 ) 

APRES 

£ 

B 

RETURN3 

DAT ABAS3 

DC 

A(UTILITY) 


TITLE ' READ ROUTINE* 

* * * FREAO ROUTINE * * 

* FORTRAN CALL# CALL FREAO ( ADORODNAME,BUF,NCOUNT,RC ) 

* WHERE, PARM I IS THE LOCATION OF THE 0 0 N A M E . 

* 1 CONTAINS THE AOORESS OF THE RCORD READ GL 

* • CONTAINS THE RCORO READ GM 

* = 3 IS THE NUMBER OF WORDS IN THE ARRAY. 

* NCOUNT HALF WORD 

* RETURNS ARE AS FOLLOWS# RC = 0, NORMAL RETURN 

* = = 1* EOF RETURN 

* = = 2 ERROR RETURN 

* = = 3, DDNAME NOT RECOGNIZABLE 

***************** 

SPACE 2 

USING *,11 

FREAD SAVE 114,12).,* 

LR 11,15 

L 10, DATABASE 

ST l.SAVl 

BAL 1 , SAV TRACE 

BAL 14, DDNMCHCK 

B *+4(15) 

B HAVFILE NORMAL RETURN 

LA 15,3 DDNAME NOT RECOGNOZIBLE 

ST 15.RETURNCD 

B RETURN3 

SPACE 1 

HAVFILE L 1 ,DCBT ABlE ( 4 ) LOAD ADD OF DCB 

LR 3,1 

L 2.SAV1 

L 2,4(2) 

LR 0,2 
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GET 

m«<oi 


SR 

4, A 


IC 

4*42(3) 


N 

4**F ' 16' 


BNZ 

AFTER 


L 

2 *SAV 1 


L 

2*4(2) 


ST 

1*0(2) 

AFTER 

L 

2.SAV1 


L 

2*8(2) 


LH 

4*82(3) 


SRA 

4*2 


STH 

4,0(2) 


B 

RETURN3 

DATABASE 

DC 

A(UTILITY) 

* 

TITLE • 

CONTROL PROGRAM "LIBRARY" ROUTINES.' 

* * 

* * 

* OONAME SEARCH ROUTINE * * * 

* 

UTILITY 

CSECT 


* 

DDNHCHCK 

STM 

2 « 6, SAV2 


L 

6*SAVi 


L 

6*0(6) OONAME ADDRESS 


SR 

4*4 


LA 

3,48 MAX# OF DD'S*7 TEMPORARILY 


LA 

2,8 

* 

LOOP 

LA 

5,DDNMTBLE (4) 


CLC 

0(8*6) *0(5) 


BE 

*♦16 


BXLE 

4, 2, LOOP 

* 


LA 

15*4(0) ERR RETURN 


B 

*♦10 

* 


SR 

15*15 NORMAL RETURN 


SRL 

4,1 N * 8 / 2 

* 


PNTR. IN FILE T ABLES ( FULL WORD ) 


LM 

2, 3, SAV2 


LM 

5*6 »SAV2+12 


BR 

14 INTER-RETURN 

* 

* 

THIS 

ROUTINE USES R4 - 10 RETURN POINTER TO DCB. 

* 


R 15- FOR THE RETURN CODE(RC). 

* * 

* 


* 

* 


SETUP FOR SAVE AREA TRACE 

* 

SAVTRACE 

ST 

1 3* SAV 1 3^4 HSA 


LA 

2 *SAV 13 


ST 

2*8(13) LSA 


LR 

13*2 MY SAVE AREA 


SR 

2,2 
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ST 2 ,RETURNCD SET FINAL RC INITIALLY TU ZERO 

BR I INTER-RETURN 

* 

* 

* * * 

SPACE 1 
EOF 

ERR 

RETURN3 


RETURN 
RETURN 
SPACE 2 

TITLE 'CONTROL PROGRAM DATA SECTION.' 

* * * * 

* 

SAVI3 OS I8F 

SAV1 OS F 

SAV2 OS F 

SAV3 OS F 

SAV4 OS F 

SAV5 OS F 

SAV6 OS F 

SAV7 OS F 

SAV8 OS F 

SAV9 DS F 

SAVIO DS F 

SPACE 2 

DC B TABLE DS OF 



DC 

A(OfcCUM) 


DC 

A(DECOM) 


DC 

A( TPUUT ) 


DC 

A ( ORB I T ) 


DC 

A(UT1) 


DC 

A ( UT2 ) 


DC 

A ( D IRbC I ) 

* 



* 



OONMTBLE 

DS 

OCL 8 


DC 

CL 8 • DUECUM 1 ' 


DC 

CL8 ' DDECUM2 1 


DC 

CL 8 ' DTPOUT • 


DC 

CL8 ' DURB I T ' 


DC 

CL 8 ' OUT 1 • 


DC 

CL 8 ' OUT 2 ' 


DC 

CL 8 ' DU IRECT • 

* 



* 



ADDLIST 

DS 

OF 

LIST1 

DC 

X ' 87 • ,AL3( JFDECUM) 


DC 

X'87' . A L 3 ( JFDElUM ) 

LIST2 

DC 

X ' 87 ' ,AL3( JFTPUUT ) 


0 A T A * * 

MUST NOT BE MOLESTED AFTER ENTRY 


MV I RETURNCD+3,X'01 • 

B RETURN3 

MV I RETURNCD+3.X'02 • 

BR 14 

L ItSAVI 

L 1.12(1) 

MVC 0(4,1 I.RETURNCD 

L 13. SAV13+4 

(14,12) TO CALLER 




* 
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LIST3 

DC 

X*87*,AL3( JFORBIT) 

LISTA 

DC 

X'87* ,AL3( JFUTi) 

LIST5 

DC 

X • 87 ' ♦ AL 3 ( JFUT 2 ) 

LIST6 

DC 

X* 87 ' »AL3(JFDIRECT) 

SPACE 

5 



DS 

OF 

RETURNCD 

DS 

F 


DS 

OD 

JFOECOM 

DS 

0CL176 

JFCBOSNH 

DS 

<*AC 

JFCBEINM 

DS 

8C 

JFCBTSDM 

DS 

C 

JFCBSYSC 

DS 

13C 

JFCBLTYP 

DS 

C 


DS 

C 

JFCBFLSO 

DS 

2C 

JFCBVL SO 

DS 

2C 

JFCBMASK 

OS 

8C 

JFCBCROT 

DS 

3C 

JFCBXPOT 

DS 

3C 

JFCB1N01 

DS 

C 

JFCBIND2 

DS 

C 

JFCBUFNO 

DS 

C 

JFCBFTEK 

DS 

C 

JFCBBUFL 

DS 

2C 

JFCEROPT 

DS 

C 

JFCBDVCH 

OS 

c 

JFCDEN 

DS 

c 


DS 

3C 

JFCDSORG 

DS 

2C 

JFCRECFM 

DS 

C 

JFCOPTCO 

DS 

C 

JFCBLKSI 

OS 

2C 

JFCLRECL 

DS 

2C 

JFCNCP 

DS 

C 


DS 

IOC 

JFCBNVOL 

DS 

C 

JFCBVOLS 

DS 

5CL6 

JFCBEXTL 

DS 

C 

JFCBEXAO 

DS 

3C 

JFCBPOTY 

DS 

3C 

JFCBCTR I 

DS 

C 

JFCBSOTY 

DS 

3C 


DS 

C 

JFCBDOTY 

DS 

3C 

JFCBSPNM 

DS 

3C 

JFCBABST 

DS 

2C 

JFCBSBNM 

DS 

3C 

JFCBORLH 

DS 

3C 

jfcbvlct 

DS 

C 

JFCBSPTN 

DS 

C 

JFTPOUT 

DS 

1 76C 

JFORBIT 

DS 

I76C 

JFUT1 

DS 

1 76C 

JFUT2 

DC 

176C 
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jedirect os 
UR tt 1 T UCb 


TROUT DCB 


DIRECT DCB 


DECON OCB 


UT 1 DCB 


UT2 DCB 

ENO 


t 76C 

DCB RO RATTITUDE URBIT TAPE 
DSORG*PS.NACRR*(GN) .DDNAWE«DORB 1 T ,DE VO*T A , 
BUENO*? . BE ALN*D« EROPT * ACC. EOOAD*EUE. 
SVNA0*ERR,EXLST*LI ST3,BETEK*S 

DCB FOR WRITING OUTPUT ANALYSIS TAPE 
DSORG-PS.NACRE-IPNI , ODNANE*DT POUT , OE VD*T A , 
BUENO* 2 . BEALN*0. EODAD«EOF * 
SVNAD*ERR,EXLST*LIST2.BETEK*S 
OCB FOR DIRECTORY TAPE 
DSORG* PS .NACRE * I GN I . DON ANE *OD I R ECT ,DEVD«TA, 
BUENO* 2 . BEAL N*D. ERUPT * ACC. EODAQ*EOE, 
SYNA0*ERR.EXLST*UST6,BETEK*S 
OCB FOR READING DECUM TAPE 
OSURG*P S .NACRE * I GL I , OON ANE-DOECON, OE VD*T A , 
BUEN0=2, BEALN*Ot EROPT* ACC ,EOOAO=EOE, 
SYNAD*ERR ? EXIST *LIST1.BETEK*S 

OCB EUR DATA SET UTILITAIRE 1 
DSORG*PS.NACRE*(GNI ,DDNANE*DUT 1 , OE VD*DA , 
BUEN0»2, BE ALN*0. EROPT* ACC, EOOAO-EOE, 
SVNAD*ERR.EXLST*LISTA, BETEK*S 

OCB FOR DATA SET UTILITAIRE 2 
OSORG * PS t NACRE * I GN I .ODNANE *0UT2»DEV0*0A» 
BUENO* 2 « BE ALN*D» EROPT* ACC » E 00 AD* EOF . 

S YNAO-ERR, EXLST -LISTS. BETEK-S 
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//GO.OORBIT 00 UN I T *2*00-9 » VOLUNE * SER* Z 9*3 » LABEL * < . BLP I » 
// DCB*(DEN*2.BLKSIZE*600). 
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